home *** CD-ROM | disk | FTP | other *** search
/ The Word 5 / The Word 5.adf / FiLeS / AREXX_EXAMPLES.lha / AREXX_EXAMPLES / Example12.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-02-25  |  380 b   |  13 lines
  1. /* Example 12 */
  2.  
  3. fileptr = "tempfile"
  4. path    = "RAM:TempFile"
  5.  
  6. If Open(fileptr, path, "W") Then Do   /* Here is A DO */
  7.    Call Writeln(fileptr, "This is Line 1")
  8.    Call Writeln(fileptr, "This is Line 2")
  9.    Call Writeln(fileptr, "This is Line 3")
  10.    Call Close(fileptr)
  11. End                                   /* Here is A END */
  12. Else
  13.    Say "Unable to create and write file..."